home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / titlecop.s < prev    next >
Text File  |  1997-01-31  |  4KB  |  376 lines
  1. TITLEPAL:
  2.  incbin "ab3:includes/NEWTITLEPAL"
  3.  
  4. titlecop:
  5.  dc.w intreq,$8010
  6.  
  7.  dc.w $10c,$0088
  8.  
  9.  dc.w $1fc,$f
  10.  dc.w diwstart,$2c81    ; Top left corner of screen.
  11.  dc.w diwstop,$2cc1     ; Bottom right corner of screen.
  12.  dc.w ddfstart,$38      ; Data fetch start.
  13.  dc.w ddfstop,$b8       ; Data fetch stop.
  14.  
  15.  dc.w bplcon0
  16. titleplanes: dc.w $7201
  17.  dc.w bplcon1
  18.  dc.w $0
  19.  
  20.  dc.w $106,$c40
  21.  
  22.  dc.w spr0ptl
  23. tsp0l:
  24.  dc.w 0
  25.  dc.w spr0pth
  26. tsp0h:
  27.  dc.w 0
  28.  dc.w spr1ptl
  29. tsp1l:
  30.  dc.w 0
  31.  dc.w spr1pth
  32. tsp1h:
  33.  dc.w 0
  34.  dc.w spr2ptl
  35. tsp2l:
  36.  dc.w 0
  37.  dc.w spr2pth
  38. tsp2h:
  39.  dc.w 0
  40.  dc.w spr3ptl
  41. tsp3l:
  42.  dc.w 0
  43.  dc.w spr3pth
  44. tsp3h:
  45.  dc.w 0
  46.  dc.w spr4ptl
  47. tsp4l:
  48.  dc.w 0
  49.  dc.w spr4pth
  50. tsp4h:
  51.  dc.w 0
  52.  dc.w spr5ptl
  53. tsp5l:
  54.  dc.w 0
  55.  dc.w spr5pth
  56. tsp5h:
  57.  dc.w 0
  58.  dc.w spr6ptl
  59. tsp6l:
  60.  dc.w 0
  61.  dc.w spr6pth
  62. tsp6h:
  63.  dc.w 0
  64.  dc.w spr7ptl
  65. tsp7l:
  66.  dc.w 0
  67.  dc.w spr7pth
  68. tsp7h:
  69.  dc.w 0
  70.  
  71.  dc.w $106,$c40
  72.  
  73. TITLEPALCOP:
  74. val SET $180
  75.  REPT 32
  76.  dc.w val,0
  77. val SET val+2
  78.  ENDR 
  79.  
  80.  dc.w $106,$2c40
  81. val SET $180
  82.  REPT 32
  83.  dc.w val,0
  84. val SET val+2
  85.  ENDR
  86.  
  87.  dc.w $106,$4c40
  88. val SET $180
  89.  REPT 32
  90.  dc.w val,0
  91. val SET val+2
  92.  ENDR 
  93.  
  94.  dc.w $106,$6c40
  95. val SET $180
  96.  REPT 32
  97.  dc.w val,0
  98. val SET val+2
  99.  ENDR
  100.  
  101. val SET $180
  102.  dc.w $106,$e40
  103.  REPT 32
  104.  dc.w val,0
  105. val SET val+2
  106.  ENDR 
  107.  
  108.  dc.w $106,$2e40
  109. val SET $180
  110.  REPT 32
  111.  dc.w val,0
  112. val SET val+2
  113.  ENDR
  114.  
  115.  dc.w $106,$4e40
  116. val SET $180
  117.  REPT 32
  118.  dc.w val,0
  119. val SET val+2
  120.  ENDR 
  121.  
  122.  dc.w $106,$6e40
  123. val SET $180
  124.  REPT 32
  125.  dc.w val,0
  126. val SET val+2
  127.  ENDR
  128.  
  129.  
  130.  dc.w $106,$8c40
  131. OPTSCRNCOP:
  132. val SET $180
  133.  REPT 8
  134.  dc.w val,$fff
  135. val SET val+2
  136.  dc.w val,$fff
  137. val SET val+2
  138.  dc.w val,$500
  139. val SET val+2
  140.  dc.w val,$fff
  141. val SET val+2
  142.  
  143.  ENDR 
  144.  dc.w $106,$ac40
  145. val SET $180
  146.  REPT 32
  147.  dc.w val,$fff
  148. val SET val+2
  149.  ENDR
  150.  
  151.  dc.w $108,0
  152.  dc.w $10a,0
  153.  
  154.  dc.w bpl1ptl
  155. ts1l:
  156.  dc.w 0
  157.  dc.w bpl1pth
  158. ts1h:
  159.  dc.w 0
  160.  
  161.  dc.w bpl2ptl
  162. ts2l:
  163.  dc.w 0
  164.  dc.w bpl2pth
  165. ts2h:
  166.  dc.w 0
  167.  
  168.  dc.w bpl3ptl
  169. ts3l:
  170.  dc.w 0
  171.  dc.w bpl3pth
  172. ts3h:
  173.  dc.w 0
  174.  
  175.  dc.w bpl4ptl
  176. ts4l:
  177.  dc.w 0
  178.  dc.w bpl4pth
  179. ts4h:
  180.  dc.w 0
  181.  
  182.  dc.w bpl5ptl
  183. ts5l:
  184.  dc.w 0
  185.  dc.w bpl5pth
  186. ts5h:
  187.  dc.w 0
  188.  
  189.  dc.w bpl6ptl
  190. ts6l:
  191.  dc.w 0
  192.  dc.w bpl6pth
  193. ts6h:
  194.  dc.w 0
  195.  
  196.  dc.w bpl7ptl
  197. ts7l:
  198.  dc.w 0
  199.  dc.w bpl7pth
  200. ts7h:
  201.  dc.w 0
  202.  
  203.  dc.w $106,$8c40
  204.  
  205. OPTCOP:
  206.  
  207. val SET $2c
  208.  REPT 32
  209.  dc.b val,$01,$ff,$00
  210.  dc.w col1,$f00
  211.  dc.w col5,$f00
  212.  dc.w col9,$f00
  213.  dc.w col13,$f00
  214.  
  215.  dc.w col3,$448
  216.  dc.w col7,$448
  217.  dc.w col11,$448
  218.  dc.w col13+4,$448
  219.  
  220.  dc.w col2,$200
  221.  dc.w col6,$200
  222.  dc.w col10,$200
  223.  dc.w col13+2,$200
  224.  
  225.  dc.b val,$df,$ff,$fe
  226. val SET val+1
  227. val SET val&255
  228.  
  229.  dc.b val,$01,$ff,$00
  230.  dc.w col1,$f00
  231.  dc.w col5,$f00
  232.  dc.w col9,$f00
  233.  dc.w col13,$f00
  234.  
  235.  dc.w col3,$77a
  236.  dc.w col7,$77a
  237.  dc.w col11,$77a
  238.  dc.w col13+4,$77a
  239.  
  240.  dc.w col2,$400
  241.  dc.w col6,$400
  242.  dc.w col10,$400
  243.  dc.w col13+2,$400
  244.  
  245.  
  246.  dc.b val,$df,$ff,$fe
  247. val SET val+1
  248. val SET val&255
  249.  
  250.  dc.b val,$01,$ff,$00
  251.  dc.w col1,$f00
  252.  dc.w col5,$f00
  253.  dc.w col9,$f00
  254.  dc.w col13,$f00
  255.  
  256.  dc.w col3,$aac
  257.  dc.w col7,$aac
  258.  dc.w col11,$aac
  259.  dc.w col13+4,$aac
  260.  
  261.  dc.w col2,$600
  262.  dc.w col6,$600
  263.  dc.w col10,$600
  264.  dc.w col13+2,$600
  265.  
  266.  
  267.  dc.b val,$df,$ff,$fe
  268. val SET val+1
  269. val SET val&255
  270.  
  271.  dc.b val,$01,$ff,$00
  272.  dc.w col1,$f00
  273.  dc.w col5,$f00
  274.  dc.w col9,$f00
  275.  dc.w col13,$f00
  276.  
  277.  dc.w col3,$ccf
  278.  dc.w col7,$ccf
  279.  dc.w col11,$ccf
  280.  dc.w col13+4,$ccf
  281.  
  282.  dc.w col2,$800
  283.  dc.w col6,$800
  284.  dc.w col10,$800
  285.  dc.w col13+2,$800
  286.  
  287.   dc.b val,$df,$ff,$fe
  288. val SET val+1
  289. val SET val&255
  290.  
  291.  dc.b val,$01,$ff,$00
  292.  dc.w col1,$f00
  293.  dc.w col5,$f00
  294.  dc.w col9,$f00
  295.  dc.w col13,$f00
  296.  
  297.  dc.w col3,$ccf
  298.  dc.w col7,$ccf
  299.  dc.w col11,$ccf
  300.  dc.w col13+4,$ccf
  301.  
  302.   dc.w col2,$800
  303.  dc.w col6,$800
  304.  dc.w col10,$800
  305.  dc.w col13+2,$800
  306.  
  307.  
  308.  dc.b val,$df,$ff,$fe
  309. val SET val+1
  310. val SET val&255
  311.  
  312.  dc.b val,$01,$ff,$00
  313.  dc.w col1,$f00
  314.  dc.w col5,$f00
  315.  dc.w col9,$f00
  316.  dc.w col13,$f00
  317.  
  318.  dc.w col3,$aac
  319.  dc.w col7,$aac
  320.  dc.w col11,$aac
  321.  dc.w col13+4,$aac
  322.  
  323.   dc.w col2,$600
  324.  dc.w col6,$600
  325.  dc.w col10,$600
  326.  dc.w col13+2,$600
  327.  
  328.  
  329.  dc.b val,$df,$ff,$fe
  330. val SET val+1
  331. val SET val&255
  332.  
  333.  dc.b val,$01,$ff,$00
  334.  dc.w col1,$f00
  335.  dc.w col5,$f00
  336.  dc.w col9,$f00
  337.  dc.w col13,$f00
  338.  
  339.  dc.w col2,$400
  340.  dc.w col6,$400
  341.  dc.w col10,$400
  342.  dc.w col13+2,$400
  343.  
  344.  
  345.  dc.w col3,$77a
  346.  dc.w col7,$77a
  347.  dc.w col11,$77a
  348.  dc.w col13+4,$77a
  349.  
  350.  dc.b val,$df,$ff,$fe
  351. val SET val+1
  352. val SET val&255
  353.  
  354.  dc.b val,$01,$ff,$00
  355.  dc.w col1,$f00
  356.  dc.w col5,$f00
  357.  dc.w col9,$f00
  358.  dc.w col13,$f00
  359.  
  360.  dc.w col3,$448
  361.  dc.w col7,$448
  362.  dc.w col11,$448
  363.  dc.w col13+4,$448
  364.  
  365.  dc.w col2,$200
  366.  dc.w col6,$200
  367.  dc.w col10,$200
  368.  dc.w col13+2,$200
  369.  
  370.  dc.b val,$df,$ff,$fe
  371. val SET val+1
  372. val SET val&255
  373.  
  374.  ENDR
  375.  
  376.  dc.w $ffff,$fffe